home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / CM / BBS200.ZIP / LISTER.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-05-07  |  21.8 KB  |  866 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  BOOLEAN007
  26.     Integer  INTEGER001
  27.     Integer  INTEGER002
  28.     Integer  INTEGER003
  29.     Integer  INTEGER004
  30.     Integer  INTEGER005
  31.     Integer  INTEGER006
  32.     Integer  INTEGER007
  33.     Integer  INTEGER008
  34.     Integer  INTEGER009
  35.     Integer  INTEGER010
  36.     Integer  INTEGER011
  37.     String   STRING001
  38.     String   STRING002
  39.     String   STRING003
  40.     String   STRING004
  41.     String   STRING005
  42.     String   STRING006
  43.     String   STRING007
  44.     String   STRING008
  45.     String   STRING009
  46.     String   TSTRING010(250)
  47.     String   TSTRING011(250)
  48.     String   TSTRING012(250)
  49.     String   TSTRING013(250)
  50.     String   TSTRING014(250)
  51.     String   TSTRING015(250)
  52.     String   TSTRING016(250)
  53.     String   TSTRING017(250)
  54.     String   TSTRING018(20)
  55.     String   TSTRING019(16)
  56.     String   TSTRING020(5)
  57.     String   STRING021
  58.     String   STRING022
  59.     String   STRING023
  60.     String   STRING024
  61.     String   TSTRING025(250)
  62.     String   STRING026
  63.     String   STRING027
  64.     String   STRING028
  65.     String   STRING029
  66.     String   STRING030
  67.     String   STRING031
  68.  
  69. ;------------------------------------------------------------------------------
  70.  
  71.     STRING029 = ""
  72.     STRING030 = ""
  73.     INTEGER005 = 4
  74.     INTEGER009 = 10
  75.     TSTRING020(1) = "1200/2400"
  76.     TSTRING020(2) = "2400"
  77.     TSTRING020(3) = "2400/9600/14000"
  78.     TSTRING020(4) = "9600/14000/19200"
  79.     TSTRING020(5) = "19200+"
  80.     TSTRING019(1) = "PCBoard"
  81.     TSTRING019(2) = "Wildcat!"
  82.     TSTRING019(3) = "The Major BBS"
  83.     TSTRING019(4) = "SearchLight BBS"
  84.     TSTRING019(5) = "TBBS"
  85.     TSTRING019(6) = "TAG"
  86.     TSTRING019(7) = "Remote Access"
  87.     TSTRING019(8) = "GAP"
  88.     TSTRING019(9) = "Renegade"
  89.     TSTRING019(10) = "Powerboard BBS"
  90.     TSTRING019(11) = "Magnum BBS"
  91.     TSTRING019(12) = "Spitfire BBS"
  92.     TSTRING019(13) = "RoboBoard/FX"
  93.     TSTRING019(14) = "RY BBS"
  94.     TSTRING019(15) = "Virtual BBS"
  95.     TSTRING019(16) = "Other BBS Software"
  96.     TSTRING018(1) = "AT&T Paradyne"
  97.     TSTRING018(2) = "ATI Technologies"
  98.     TSTRING018(3) = "Cardinal Technologies"
  99.     TSTRING018(4) = "Computer Peripherals"
  100.     TSTRING018(5) = "Digicom Systems"
  101.     TSTRING018(6) = "Galaxy Networks"
  102.     TSTRING018(7) = "GVC Technologies"
  103.     TSTRING018(8) = "Hayes Microcomputer"
  104.     TSTRING018(9) = "Image Communications"
  105.     TSTRING018(10) = "Intel Corporation"
  106.     TSTRING018(11) = "Microcom"
  107.     TSTRING018(12) = "Multi-Tech Systems"
  108.     TSTRING018(13) = "Pratical Peripherals"
  109.     TSTRING018(14) = "Supra Corporation"
  110.     TSTRING018(15) = "Telebit Corporation"
  111.     TSTRING018(16) = "U.S. Robotics"
  112.     TSTRING018(17) = "Ven-Tel"
  113.     TSTRING018(18) = "ZyXEL"
  114.     TSTRING018(19) = "Zoom Telephonics"
  115.     TSTRING018(20) = "Other"
  116.     BOOLEAN001 = 0
  117.     BOOLEAN002 = 0
  118.     BOOLEAN003 = 0
  119.     BOOLEAN006 = 0
  120.     BOOLEAN005 = 0
  121.     BOOLEAN004 = 0
  122.     INTEGER007 = 0
  123.     INTEGER008 = 6
  124.     STRING024 = " "
  125.     FOpen 5, PPEPath() + "CONF", 0, 2
  126.     FGet 5, STRING002
  127.     FClose 5
  128.     Tokenize STRING002
  129.     INTEGER010 = GetToken()
  130.     INTEGER011 = GetToken()
  131.     Log "****ENTERED LISTER.PPS****", 1
  132.     STRING001 = ""
  133.     Gosub LABEL003
  134.     While (STRING001 <> "Q") Do
  135.         STRING001 = ""
  136.         STRING001 = Inkey()
  137.         STRING001 = Upper(STRING001)
  138.         If (STRING001 == "A") Then
  139.             Gosub LABEL025
  140.             If (CurSec() >= INTEGER010) Then
  141.                 Gosub LABEL014
  142.                 BOOLEAN001 = 1
  143.                 Gosub LABEL003
  144.                 Goto LABEL002
  145.             Endif
  146.             If (BOOLEAN001) Goto LABEL001
  147.             Gosub LABEL014
  148.             Gosub LABEL003
  149.             Goto LABEL002
  150.             :LABEL001
  151.             If (BOOLEAN001) Then
  152.                 Gosub LABEL033
  153.                 Gosub LABEL003
  154.             Endif
  155.             :LABEL002
  156.             Continue
  157.         Endif
  158.         If (STRING001 == "!") Then
  159.             If (CurSec() >= INTEGER010) Then
  160.                 Gosub LABEL019
  161.                 Gosub LABEL003
  162.             Endif
  163.             Continue
  164.         Endif
  165.         If (STRING001 == "V") Then
  166.             Gosub LABEL004
  167.             Gosub LABEL003
  168.             Continue
  169.         Endif
  170.         If (STRING001 == "G") Then
  171.             Gosub LABEL009
  172.             Gosub LABEL003
  173.             Continue
  174.         Endif
  175.         If (STRING001 == "D") Then
  176.             Download "LISTING.TXT"
  177.             Gosub LABEL003
  178.             Continue
  179.         Endif
  180.         If (STRING001 == "L") Then
  181.             DispFile PPEPath() + "GOODBYEG", 2 + 1 + 4
  182.             Bye
  183.         Endif
  184.     EndWhile
  185.     End
  186.     :LABEL003
  187.     Cls
  188.     PrintLn "@X71╔═══════════════════════════════╤══════════════════════╤══════════════════════╕@X07"
  189.     PrintLn "@X71║ @X74Add@X7F/@X70View@X7F/@X7EEdit @X7FMenu            @X71│   @X70LISTER @X7E2.00        @X71│ @XFER@XF0E@XF1G@XF2I@XF3S@XF4T@XF5E@XF6R@XF8E@XF9D @X70VERSION   @X71│@X07"
  190.     PrintLn "@X71╠═══════════════════════════════╧══════════════════════╧══════════════════════╡@X07"
  191.     PrintLn "@X71║ @X74▒▒▓▓██ @X70(@X71A@X70)dd/Edit BBS Listing       @X74██▓▓▒▒  @X7FAdd your BBS Here!              @X71│@X07"
  192.     PrintLn "@X71╠═════════════════════════════════════════════════════════════════════════════╡@X07"
  193.     PrintLn "@X71║ @X74▒▒▓▓██ @X70(@X71V@X70)iew BBS Listings          @X74██▓▓▒▒  @X7FView BBS Listings by AREA CODE  @X71│@X07"
  194.     PrintLn "@X71╠═════════════════════════════════════════════════════════════════════════════╡@X07"
  195.     PrintLn "@X71║ @X74▒▒▓▓██ @X70(@X71G@X70)eneral BBS Listings       @X74██▓▓▒▒  @X7FGeneral BBS Listings            @X71│@X07"
  196.     PrintLn "@X71╠═════════════════════════════════════════════════════════════════════════════╡@X07"
  197.     PrintLn "@X71║ @X74▒▒▓▓██ @X70(@X71!@X70)Sysop Menu                @X74██▓▓▒▒  @X7FSysop Menu                      @X71│@X07"
  198.     PrintLn "@X71╠═════════════════════════════════════════════════════════════════════════════╡@X07"
  199.     PrintLn "@X71║ @X74▒▒▓▓██ @X70(@X71D@X70)ownload Text BBS Listing  @X74██▓▓▒▒  @X7FDownload BBS Listing            @X71│@X07"
  200.     PrintLn "@X71╠═════════════════════════════════════════════════════════════════════════════╡@X07"
  201.     PrintLn "@X71║ @X74▒▒▓▓██ @X70(@X71Q@X70)uit to Main Menu          @X74██▓▓▒▒  @X7FQuit to Main Menu               @X71│@X07"
  202.     PrintLn "@X71╠═════════════════════════════════════════════════════════════════════════════╡@X07"
  203.     PrintLn "@X71║ @X74▒▒▓▓██ @X70(@X71L@X70)ogoff/Goodbye             @X74██▓▓▒▒  @X7FLeaving So Soon?                @X71│@X07"
  204.     PrintLn "@X71╙─────────────────────────────────────────────────────────────────────────────┘@X07"
  205.     Return
  206.     :LABEL004
  207.     BOOLEAN007 = 0
  208.     INTEGER001 = 0
  209.     INTEGER002 = 1
  210.     STRING027 = ""
  211.     Cls
  212.     InputStr "Enter Area Code to search ", STRING027, 11, 3, "1234567890", 2 + 4 + 64
  213.     STRING027 = "@X74" + STRING027
  214.     FOpen 1, PPEPath() + "BBS", 0, 2
  215.     Frewind 1
  216.     Gosub LABEL007
  217.     FGet 1, STRING004
  218.     FGet 1, STRING005
  219.     FGet 1, STRING006
  220.     FGet 1, STRING008
  221.     FGet 1, STRING007
  222.     FGet 1, STRING009
  223.     FGet 1, STRING029
  224.     FGet 1, STRING030
  225.     FGet 1, STRING031
  226.     STRING028 = Left(STRING005, 4)
  227.     STRING028 = LTrim(STRING028, "(")
  228.     :LABEL005
  229.     If (Ferr(1)) Goto LABEL006
  230.     If (Right(STRING027, 3) == STRING028) Then
  231.         If (INTEGER002 > INTEGER005) Then
  232.             Gosub LABEL007
  233.             INTEGER002 = 1
  234.         Endif
  235.         AnsiPos 1, 4 + INTEGER001
  236.         PrintLn "@X70│                                                                            @X7F║@X07"
  237.         AnsiPos 1, 5 + INTEGER001
  238.         PrintLn "@X70│                                                                            @X7F║@X07"
  239.         AnsiPos 1, 4 + INTEGER001
  240.         Print "@X70│@X75     " + STRING004
  241.         AnsiPos 33, 4 + INTEGER001
  242.         Print "@X71" + STRING005
  243.         AnsiPos 60, 4 + INTEGER001
  244.         PrintLn "@X70" + STRING006
  245.         AnsiPos 1, 5 + INTEGER001
  246.         Print "@X70│@X74     " + STRING031
  247.         AnsiPos 33, 5 + INTEGER001
  248.         Print "@X7F" + STRING030
  249.         AnsiPos 60, 5 + INTEGER001
  250.         PrintLn "@X7E" + STRING029
  251.         BOOLEAN007 = 1
  252.         INTEGER001 = INTEGER001 + 2
  253.         INTEGER002 = INTEGER002 + 1
  254.         If (INTEGER002 > INTEGER005) Then
  255.             Gosub LABEL008
  256.             STRING001 = ""
  257.             Print "@X0APress @X0DReturn @X0Ato Continue @X0E-OR- @X0DESC @X0ATO QUIT@X07"
  258.             While (STRING001 <> Chr(13)) Do
  259.                 STRING001 = Inkey()
  260.                 STRING001 = Upper(STRING001)
  261.                 If (STRING001 == Chr(27)) Then
  262.                     STRING001 = ""
  263.                     FClose 1
  264.                     INTEGER001 = 0
  265.                     INTEGER002 = 1
  266.                     Return
  267.                 Endif
  268.             EndWhile
  269.             STRING001 = ""
  270.             INTEGER001 = 0
  271.         Endif
  272.     Endif
  273.     FGet 1, STRING004
  274.     FGet 1, STRING005
  275.     FGet 1, STRING006
  276.     FGet 1, STRING008
  277.     FGet 1, STRING007
  278.     FGet 1, STRING009
  279.     FGet 1, STRING029
  280.     FGet 1, STRING030
  281.     FGet 1, STRING031
  282.     STRING028 = Left(STRING005, 4)
  283.     STRING028 = LTrim(STRING028, "(")
  284.     Goto LABEL005
  285.     :LABEL006
  286.     If (INTEGER002 <= INTEGER005) Then
  287.         Gosub LABEL008
  288.         Wait
  289.         INTEGER002 = 1
  290.         INTEGER001 = 0
  291.     Endif
  292.     FClose 1
  293.     Return
  294.     :LABEL007
  295.     PrintLn "@CLS@@X70╒@X7F════════════════════════════════════════════════════════════════════════════╗@X07"
  296.     PrintLn "@X70│@X71               Listing of BBSes in the ", "@X0B" + STRING027, "@X71 area code.                       @X7F║@X07"
  297.     PrintLn "@X70│                                                                            @X7F║@X07"
  298.     INTEGER001 = 0
  299.     Return
  300.     :LABEL008
  301.     PrintLn "@X70│                                                                            @X7F║@X07"
  302.     PrintLn "@X70└────────────────────────────────────────────────────────────────────────────@X7F╝@X07"
  303.     Return
  304.     :LABEL009
  305.     INTEGER001 = 0
  306.     INTEGER002 = 1
  307.     Cls
  308.     FOpen 1, PPEPath() + "BBS", 0, 2
  309.     Frewind 1
  310.     Gosub LABEL012
  311.     FGet 1, STRING004
  312.     FGet 1, STRING005
  313.     FGet 1, STRING006
  314.     FGet 1, STRING008
  315.     FGet 1, STRING007
  316.     FGet 1, STRING009
  317.     FGet 1, STRING029
  318.     FGet 1, STRING030
  319.     FGet 1, STRING031
  320.     :LABEL010
  321.     If (Ferr(1)) Goto LABEL011
  322.     If (INTEGER002 > INTEGER009) Then
  323.         Gosub LABEL012
  324.         INTEGER002 = 1
  325.     Endif
  326.     AnsiPos 1, 4 + INTEGER001
  327.     PrintLn "@X70│                                                                            @X7F║@X07"
  328.     AnsiPos 1, 4 + INTEGER001
  329.     Print "@X70│@X75     " + STRING004
  330.     AnsiPos 33, 4 + INTEGER001
  331.     Print "@X71" + STRING005
  332.     AnsiPos 60, 4 + INTEGER001
  333.     PrintLn "@X70" + STRING006
  334.     INTEGER001 = INTEGER001 + 1
  335.     INTEGER002 = INTEGER002 + 1
  336.     If (INTEGER002 > INTEGER009) Then
  337.         Gosub LABEL013
  338.         STRING001 = ""
  339.         Print "@X0APress @X0DReturn @X0Ato Continue @X0E-OR- @X0DESC @X0ATO QUIT@X07"
  340.         While (STRING001 <> Chr(13)) Do
  341.             STRING001 = Inkey()
  342.             STRING001 = Upper(STRING001)
  343.             If (STRING001 == Chr(27)) Then
  344.                 STRING001 = ""
  345.                 FClose 1
  346.                 INTEGER001 = 0
  347.                 INTEGER002 = 1
  348.                 Return
  349.             Endif
  350.         EndWhile
  351.         STRING001 = ""
  352.         INTEGER001 = 0
  353.     Endif
  354.     FGet 1, STRING004
  355.     FGet 1, STRING005
  356.     FGet 1, STRING006
  357.     FGet 1, STRING008
  358.     FGet 1, STRING007
  359.     FGet 1, STRING009
  360.     FGet 1, STRING029
  361.     FGet 1, STRING030
  362.     FGet 1, STRING031
  363.     Goto LABEL010
  364.     :LABEL011
  365.     If (INTEGER002 <= INTEGER009) Then
  366.         Gosub LABEL013
  367.         Wait
  368.         INTEGER002 = 1
  369.         INTEGER001 = 0
  370.     Endif
  371.     FClose 1
  372.     Return
  373.     :LABEL012
  374.     PrintLn "@CLS@@X70╒@X7F════════════════════════════════════════════════════════════════════════════╗@X07"
  375.     PrintLn "@X70│@X71                           General BBS Listing                              @X7F║@X07"
  376.     PrintLn "@X70│                                                                            @X7F║@X07"
  377.     INTEGER001 = 0
  378.     Return
  379.     :LABEL013
  380.     PrintLn "@X70│                                                                            @X7F║@X07"
  381.     PrintLn "@X70└────────────────────────────────────────────────────────────────────────────@X7F╝@X07"
  382.     Return
  383.     :LABEL014
  384.     Cls
  385.     INTEGER007 = 0
  386.     INTEGER004 = 0
  387.     STRING024 = ""
  388.     Gosub LABEL025
  389.     INTEGER007 = INTEGER007 + 1
  390.     INTEGER006 = INTEGER007
  391.     Gosub LABEL027
  392.     Gosub LABEL028
  393.     Gosub LABEL029
  394.     Gosub LABEL035
  395.     Gosub LABEL030
  396.     Gosub LABEL031
  397.     Gosub LABEL032
  398.     Gosub LABEL033
  399.     If (STRING024 == "A") Then
  400.         INTEGER007 = INTEGER007 - 1
  401.         INTEGER006 = 0
  402.     Endif
  403.     Return
  404.     :LABEL015
  405.     FCreate 5, PPEPath() + "LISTING.TXT", 1, 0
  406.     Frewind 5
  407.     For INTEGER004 = 1 To INTEGER007
  408.         FPutPad 5, TSTRING012(INTEGER004), -20
  409.         FPutPad 5, TSTRING013(INTEGER004), -17
  410.         FPutPad 5, TSTRING014(INTEGER004), 23
  411.         FPutLn 5
  412.         FPutPad 5, TSTRING016(INTEGER004), -20
  413.         FPutPad 5, TSTRING015(INTEGER004), -20
  414.         FPutPad 5, TSTRING017(INTEGER004), 20
  415.         FPutLn 5
  416.         FPutLn 5
  417.     Next
  418.     FClose 5
  419.     FCreate 4, PPEPath() + "GOODBYEG", 1, 0
  420.     FPutLn 4, "@CLS@@X70╒@X7F════════════════════════════════════════════════════════════════════════════╗@X07"
  421.     FPutLn 4, "@X70│                             @X74BBS LISTER 2.00                                @X7F║@X07"
  422.     FPutLn 4, "@X70│                                                                            @X7F║@X07"
  423.     FPutLn 4, "@X70│ @X71Bulletin Board      @X7FTelephone        @X74Sysop's                @X70Date           @X7F║@X07"
  424.     FPutLn 4, "@X70│ @X71Name              @X7F  Number           @X74Name                   @X70Posted         @X7F║@X07"
  425.     FPutLn 4, "@X70│                                                                            @X7F║@X07"
  426.     FCreate 6, PPEPath() + "SYSOPG", 1, 0
  427.     For INTEGER004 = 1 To INTEGER007
  428.         If (TSTRING011(INTEGER004) == "Y") Then
  429.             FPut 6, "@X70│@X71 "
  430.             FPutPad 6, TSTRING012(INTEGER004), -20
  431.             FPutPad 6, TSTRING013(INTEGER004), -17
  432.             FPutPad 6, TSTRING014(INTEGER004), -23
  433.             FPutPad 6, TSTRING025(INTEGER004), -15
  434.             FPutLn 6, "@X7F║@X07"
  435.         Endif
  436.     Next
  437.     FClose 6
  438.     FOpen 2, PPEPath() + "SYSOPG", 0, 2
  439.     Frewind 2
  440.     FGet 2, STRING026
  441.     :LABEL016
  442.     If (Ferr(2)) Goto LABEL017
  443.     FPutLn 4, STRING026
  444.     FGet 2, STRING026
  445.     Goto LABEL016
  446.     :LABEL017
  447.     FClose 2
  448.     FPutLn 4, "@X70│                                                                            @X7F║@X07"
  449.     FPutLn 4, "@X70│ @X71PEPSTER'S PLACE  (313) 421-9145  SYSOP : JOHN PEPP (AUTHOR OF BBS LISTER)  @X7F║@X07"
  450.     FPutLn 4, "@X70└────────────────────────────────────────────────────────────────────────────╜@X07"
  451.     FClose 4
  452.     Return
  453.     :LABEL018
  454.     FCreate 1, PPEPath() + "BBS", 1, 0
  455.     For INTEGER004 = 1 To INTEGER007
  456.         FPutLn 1, TSTRING012(INTEGER004)
  457.         FPutLn 1, TSTRING013(INTEGER004)
  458.         FPutLn 1, TSTRING014(INTEGER004)
  459.         FPutLn 1, TSTRING025(INTEGER004)
  460.         FPutLn 1, TSTRING010(INTEGER004)
  461.         FPutLn 1, TSTRING011(INTEGER004)
  462.         FPutLn 1, TSTRING016(INTEGER004)
  463.         FPutLn 1, TSTRING015(INTEGER004)
  464.         FPutLn 1, TSTRING017(INTEGER004)
  465.     Next
  466.     FClose 1
  467.     FCreate 2, PPEPath() + "TOTAL", 1, 0
  468.     FPutLn 2, INTEGER007
  469.     FClose 2
  470.     Return
  471.     :LABEL019
  472.     Gosub LABEL024
  473.     STRING001 = ""
  474.     While (STRING001 <> "Q") Do
  475.         STRING001 = ""
  476.         STRING001 = Inkey()
  477.         STRING001 = Upper(STRING001)
  478.         If (STRING001 == "M") Then
  479.             Gosub LABEL020
  480.             Gosub LABEL024
  481.             Continue
  482.         Endif
  483.         If (STRING001 == "D") Then
  484.             Gosub LABEL022
  485.             Gosub LABEL024
  486.         Endif
  487.     EndWhile
  488.     STRING001 = ""
  489.     Return
  490.     :LABEL020
  491.     Gosub LABEL025
  492.     Cls
  493.     Newline
  494.     InputStr "Please enter BBS Name to be modified", STRING003, 11, 25, Mask_Ascii(), 64 + 2 + 4
  495.     For INTEGER004 = 1 To INTEGER007
  496.         If (Mixed(STRING003) == Mixed(TSTRING012(INTEGER004))) Then
  497.             INTEGER006 = INTEGER004
  498.             Gosub LABEL033
  499.             BOOLEAN004 = 1
  500.         Endif
  501.     Next
  502.     If (BOOLEAN004) Goto LABEL021
  503.     Cls
  504.     PrintLn "Name not found"
  505.     Wait
  506.     :LABEL021
  507.     BOOLEAN004 = 0
  508.     Return
  509.     :LABEL022
  510.     Gosub LABEL025
  511.     Cls
  512.     Newline
  513.     InputStr "Please enter BBS Name to be deleted", STRING003, 11, 25, Mask_Ascii(), 64 + 2 + 4
  514.     For INTEGER004 = 1 To INTEGER007
  515.         If (Mixed(STRING003) == Mixed(TSTRING012(INTEGER004))) Then
  516.             PrintLn "@X0CBBS Name                          @X0F|  @X07", "@X0A" + TSTRING012(INTEGER004)
  517.             PrintLn "@X0CBBS Telephone Number of BBS       @X0F|  @X07", "@X0A" + TSTRING013(INTEGER004)
  518.             PrintLn "@X0CBBS Sysop                         @X0F|  @X07", "@X0A" + TSTRING014(INTEGER004)
  519.             PrintLn "@X0CType of BBS Software              @X0F|  @X07", "@X0A" + TSTRING016(INTEGER004)
  520.             PrintLn "@X0CType of Modem                     @X0F|  @X07", "@X0A" + TSTRING015(INTEGER004)
  521.             PrintLn "@X0CBaud Rate                         @X0F|  @X07", "@X0A" + TSTRING017(INTEGER004)
  522.             PrintLn "@X0CLogOff Screen (Y/N)               @X0F|  @X07", "@X0A" + TSTRING011(INTEGER004)
  523.             Newlines 2
  524.             Print "@X0BAre you sure you want to delete? (Y/N)@X07"
  525.             While (STRING001 <> "Q") Do
  526.                 STRING001 = ""
  527.                 STRING001 = Inkey()
  528.                 STRING001 = Upper(STRING001)
  529.                 If (STRING001 == "Q") Then
  530.                     STRING001 = ""
  531.                 Endif
  532.                 If (STRING001 == "Y") Then
  533.                     TSTRING012(INTEGER004) = TSTRING012(INTEGER007)
  534.                     TSTRING013(INTEGER004) = TSTRING013(INTEGER007)
  535.                     TSTRING014(INTEGER004) = TSTRING014(INTEGER007)
  536.                     TSTRING016(INTEGER004) = TSTRING016(INTEGER007)
  537.                     TSTRING015(INTEGER004) = TSTRING015(INTEGER007)
  538.                     TSTRING017(INTEGER004) = TSTRING017(INTEGER007)
  539.                     TSTRING011(INTEGER004) = TSTRING011(INTEGER007)
  540.                     INTEGER007 = INTEGER007 - 1
  541.                     Gosub LABEL018
  542.                     Gosub LABEL015
  543.                     STRING001 = "Q"
  544.                     Continue
  545.                 Endif
  546.                 If (STRING001 == "N") Then
  547.                     STRING001 = "Q"
  548.                 Endif
  549.             EndWhile
  550.             STRING001 = ""
  551.             BOOLEAN004 = 1
  552.         Endif
  553.     Next
  554.     If (BOOLEAN004) Goto LABEL023
  555.     Cls
  556.     PrintLn "Name not found"
  557.     Wait
  558.     :LABEL023
  559.     BOOLEAN004 = 0
  560.     Return
  561.     :LABEL024
  562.     Cls
  563.     PrintLn "@X71╔═══════════════════════════════╤══════════════════════╤══════════════════════╕@X07"
  564.     PrintLn "@X71║   @X74BBS LISTER 2.00             @X71│   @X70 SYSOP MENU        @X71│   @X75AUTHOR : JOHN PEPP @X71│@X07"
  565.     PrintLn "@X71╠═══╤═══════════════════════════╧══════════════════════╧══════════════════════╡@X07"
  566.     PrintLn "@X71@X71║ @X70M @X71│ @X74Modify or Change USER response(s) @X7F{ Change GOODBYE option }             @X71│@X07"
  567.     PrintLn "@X71╠═══╪═════════════════════════════════════════════════════════════════════════╡@X07"
  568.     PrintLn "@X71║ @X70D @X71│ @X74Delete a BBS Listing                                                    @X71│@X07"
  569.     PrintLn "@X71╠═══╪═════════════════════════════════════════════════════════════════════════╡@X07"
  570.     PrintLn "@X71║ @X70Q @X71│ @X74Quit to Main Menu                                                       @X71│@X07"
  571.     PrintLn "@X71╙───┴─────────────────────────────────────────────────────────────────────────┘@X07"
  572.     Return
  573.     :LABEL025
  574.     FOpen 3, PPEPath() + "TOTAL", 0, 2
  575.     Frewind 3
  576.     If (Ferr(3)) Then
  577.         SPrintLn "Error, File Doesn't Exist"
  578.         INTEGER007 = 0
  579.     Else
  580.         If (Ferr(3)) Goto LABEL026
  581.         FGet 3, INTEGER007
  582.         :LABEL026
  583.         If (INTEGER007 >= INTEGER008) Then
  584.             BOOLEAN003 = 1
  585.         Endif
  586.         FOpen 1, PPEPath() + "BBS", 0, 2
  587.         Frewind 1
  588.         For INTEGER004 = 1 To INTEGER007
  589.             FGet 1, TSTRING012(INTEGER004)
  590.             FGet 1, TSTRING013(INTEGER004)
  591.             FGet 1, TSTRING014(INTEGER004)
  592.             FGet 1, TSTRING025(INTEGER004)
  593.             FGet 1, TSTRING010(INTEGER004)
  594.             FGet 1, TSTRING011(INTEGER004)
  595.             FGet 1, TSTRING016(INTEGER004)
  596.             FGet 1, TSTRING015(INTEGER004)
  597.             FGet 1, TSTRING017(INTEGER004)
  598.             If (U_Name() == TSTRING010(INTEGER004)) Then
  599.                 BOOLEAN001 = 1
  600.                 INTEGER006 = INTEGER004
  601.             Endif
  602.         Next
  603.         FClose 1
  604.     Endif
  605.     FClose 3
  606.     Return
  607.     :LABEL027
  608.     InputStr "Enter BBS Name : ", STRING004, 11, 20, Mask_Ascii(), 2 + 4 + 64
  609.     TSTRING012(INTEGER006) = STRING004
  610.     Return
  611.     :LABEL028
  612.     InputStr "Enter BBS Sysop's Name : ", STRING006, 11, 20, Mask_Ascii(), 2 + 4 + 64
  613.     TSTRING014(INTEGER006) = STRING006
  614.     TSTRING010(INTEGER006) = U_Name()
  615.     Return
  616.     :LABEL029
  617.     Cls
  618.     PrintLn "@X0FPlease Enter BBS Telephone Number."
  619.     Newlines 5
  620.     InputStr "Area Code", STRING021, 11, 3, "1234567890", 2 + 4 + 64
  621.     InputStr "Prefix", STRING022, 11, 3, "1234567890", 2 + 4 + 64
  622.     InputStr "Suffix", STRING023, 11, 4, "1234567890", 2 + 4 + 64
  623.     TSTRING013(INTEGER006) = "(" + STRING021 + ") " + STRING022 + "-" + STRING023
  624.     TSTRING025(INTEGER006) = Date()
  625.     Return
  626.     :LABEL030
  627.     PrintLn "@CLS@@X70╒@X7F════════════════════════════════════════════════════════════════════════════╗@X07"
  628.     PrintLn "@X70│                       @X74Pepster's Place BBS Software Picker                  @X7F║@X07"
  629.     PrintLn "@X70│                                                                            @X7F║@X07"
  630.     PrintLn "@X70│        @X71No.   @X75Software                @X71No.   @X75Software                        @X7F║@X07"
  631.     PrintLn "@X70│                                                                            @X7F║@X07"
  632.     PrintLn "@X70│ @X71        1.  @X75 PCBoard                 @X71 9.   @X75Renegade                        @X7F║@X07"
  633.     PrintLn "@X70│         @X712.   @X75Wildcat              @X71   10.   @X75Powerboard BBS                  @X7F║@X07"
  634.     PrintLn "@X70│         @X713.   @X75The Major BBS           @X7111.   @X75Magnum BBS                      @X7F║@X07"
  635.     PrintLn "@X70│         @X714.   @X75SearchLight BBS         @X7112.   @X75Spitfire BBS                    @X7F║@X07"
  636.     PrintLn "@X70│         @X715.   @X75TBBS                    @X7113.   @X75RoboBoard/FX                    @X7F║@X07"
  637.     PrintLn "@X70│         @X716.   @X75TAG                     @X7114.   @X75RY BBS                          @X7F║@X07"
  638.     PrintLn "@X70│         @X717.   @X75Remote Access           @X7115.   @X75Virtual BBS                     @X7F║@X07"
  639.     PrintLn "@X70│         @X718.   @X75GAP                     @X7116.   @X75Other BBS Software              @X7F║@X07"
  640.     PrintLn "@X70│                                                                            @X7F║@X07"
  641.     PrintLn "@X70│                            @X74Version 1.50                                    @X7F║@X07"
  642.     PrintLn "@X70└────────────────────────────────────────────────────────────────────────────@X7F╝@X07"
  643.     InputStr "Please Pick the Corresponding BBS Software (1-16)", INTEGER003, 11, 2, Mask_Num(), 64
  644.     If (INTEGER003 > 16) Then
  645.         Goto LABEL030
  646.     Endif
  647.     If (INTEGER003 < 1) Then
  648.         Goto LABEL030
  649.     Endif
  650.     TSTRING016(INTEGER006) = TSTRING019(INTEGER003)
  651.     INTEGER003 = 0
  652.     Return
  653.     :LABEL031
  654.     PrintLn "@CLS@@X70╒@X7F════════════════════════════════════════════════════════════════════════════╗@X07"
  655.     PrintLn "@X70│                       @X74Pepster's Place Modem Picker                         @X7F║@X07"
  656.     PrintLn "@X70│                                                                            @X7F║@X07"
  657.     PrintLn "@X70│        @X71No.   @X75Company                 @X71No.   @X75Company                         @X7F║@X07"
  658.     PrintLn "@X70│                                                                            @X7F║@X07"
  659.     PrintLn "@X70│ @X71        1.  @X75 AT&T Paradyne           @X7111.   @X75Microcom                        @X7F║@X07"
  660.     PrintLn "@X70│         @X712.   @X75ATI Technologies     @X71   12.   @X75Multi-Tech Systems              @X7F║@X07"
  661.     PrintLn "@X70│         @X713.   @X75Cardinal Technologies   @X7113.   @X75Pratical Peripherals            @X7F║@X07"
  662.     PrintLn "@X70│         @X714.   @X75Computer Peripherals    @X7114.   @X75Supra Corporation               @X7F║@X07"
  663.     PrintLn "@X70│         @X715.   @X75Digicom Systems         @X7115.   @X75Telebit Corporation             @X7F║@X07"
  664.     PrintLn "@X70│         @X716.   @X75Galaxy Networks         @X7116.   @X75U.S. Robotics                   @X7F║@X07"
  665.     PrintLn "@X70│         @X717.   @X75GVC Technologies        @X7117.   @X75Ven-Tel                         @X7F║@X07"
  666.     PrintLn "@X70│         @X718.   @X75Hayes Microcomputer     @X7118.   @X75ZyXEL                           @X7F║@X07"
  667.     PrintLn "@X70│         @X719.   @X75Image Communications    @X7119.   @X75Zoom Telephonics                @X7F║@X07"
  668.     PrintLn "@X70│       @X71 10.   @X75Intel Corporation       @X7120.   @X75Other                           @X7F║@X07"
  669.     PrintLn "@X70│                                                                            @X7F║@X07"
  670.     PrintLn "@X70│                            @X74Version 1.50                                    @X7F║@X07"
  671.     PrintLn "@X70└────────────────────────────────────────────────────────────────────────────@X7F╝@X07"
  672.     Newline
  673.     InputStr "Please Pick the Corresponding Modem Number (1-20)", INTEGER003, 11, 2, Mask_Num(), 64
  674.     If (INTEGER003 > 20) Then
  675.         Goto LABEL031
  676.     Endif
  677.     If (INTEGER003 < 1) Then
  678.         Goto LABEL031
  679.     Endif
  680.     TSTRING015(INTEGER006) = TSTRING018(INTEGER003)
  681.     INTEGER003 = 0
  682.     Return
  683.     :LABEL032
  684.     PrintLn "@CLS@@X70╒@X7F═══════════════════════════════════════╗@X07"
  685.     PrintLn "@X70│     @X71What Baud Rate Do You Support?    @X7F║@X07"
  686.     PrintLn "@X70│                                       @X7F║@X07"
  687.     PrintLn "@X70│   @X701.  @X741200/2400                       @X7F║@X07"
  688.     PrintLn "@X70│   2.  @X742400                            @X7F║@X07"
  689.     PrintLn "@X70│   3.  @X742400/9600/14400                 @X7F║@X07"
  690.     PrintLn "@X70│   4.  @X749600/14400/19200            @X71    @X7F║@X07"
  691.     PrintLn "@X70│   5.  @X7419200+                          @X7F║@X07"
  692.     PrintLn "@X70│                                       @X7F║@X07"
  693.     PrintLn "@X70│                                       @X7F║@X07"
  694.     PrintLn "@X70│                                       @X7F║@X07"
  695.     PrintLn "@X70│                                       @X7F║@X07"
  696.     PrintLn "@X70│                                       @X7F║@X07"
  697.     PrintLn "@X70│                                       @X7F║@X07"
  698.     PrintLn "@X70│   @X75*Note : I realize that this         @X7F║@X07"
  699.     PrintLn "@X70│    @X75doesn't cover everthing, so        @X7F║@X07"
  700.     PrintLn "@X70│    @X75please choose the closest.         @X7F║@X07"
  701.     PrintLn "@X70└───────────────────────────────────────@X7F╝@X07"
  702.     InputStr "Please Pick the Corresponding baud rate (1-5)", INTEGER003, 11, 2, Mask_Num(), 64
  703.     If (INTEGER003 > 5) Then
  704.         Goto LABEL032
  705.     Endif
  706.     If (INTEGER003 < 1) Then
  707.         Goto LABEL032
  708.     Endif
  709.     TSTRING017(INTEGER006) = TSTRING020(INTEGER003)
  710.     INTEGER003 = 0
  711.     Return
  712.     :LABEL033
  713.     If (BOOLEAN006) Goto LABEL034
  714.     Cls
  715.     PrintLn "@X0AThe Edit Menu "
  716.     Newlines 2
  717.     PrintLn "@X0BBBS (@X0DN@X0B)ame                          @X0F|  @X07", "@X0A" + TSTRING012(INTEGER006)
  718.     PrintLn "@X0BBBS (@X0DT@X0B)elephone Number of BBS       @X0F|  @X07", "@X0A" + TSTRING013(INTEGER006)
  719.     PrintLn "@X0BBBS S(@X0DY@X0B)sop                         @X0F|  @X07", "@X0A" + TSTRING014(INTEGER006)
  720.     PrintLn "@X0BType of (@X0DB@X0B)BS Software              @X0F|  @X07", "@X0A" + TSTRING016(INTEGER006)
  721.     PrintLn "@X0BType of (@X0DM@X0B)odem                     @X0F|  @X07", "@X0A" + TSTRING015(INTEGER006)
  722.     PrintLn "@X0BBaud (@X0DR@X0B)ate                         @X0F|  @X07", "@X0A" + TSTRING017(INTEGER006)
  723.     PrintLn "@X0BLog(@X0DO@X0B)ff Screen (Y/N)               @X0F|  @X07", "@X0A" + TSTRING011(INTEGER006)
  724.     PrintLn 
  725.     PrintLn "@X0A(@X0CS@X0A)ave Changes@X07"
  726.     PrintLn "@X0A(@X0CA@X0A)bort Changes@X07 "
  727.     Newline
  728.     STRING024 = " "
  729.     InputStr "Enter B, M, N, T, Y, R, O, S, or A ", STRING024, 11, 1, "BMNTYROSA", 8 + 2 + 4 + 64
  730.     Select Case (STRING024)
  731.         Case "A"
  732.             Cls
  733.             PrintLn "@X8CAborting and Returning to Menu@X07"
  734.             STRING004 = ""
  735.             STRING006 = ""
  736.             STRING021 = ""
  737.             STRING022 = ""
  738.             STRING023 = ""
  739.             Return
  740.         Case "R"
  741.             Gosub LABEL032
  742.         Case "B"
  743.             Gosub LABEL030
  744.         Case "M"
  745.             Gosub LABEL031
  746.         Case "N"
  747.             Gosub LABEL027
  748.         Case "T"
  749.             Gosub LABEL029
  750.         Case "Y"
  751.             Gosub LABEL028
  752.         Case "O"
  753.             Gosub LABEL035
  754.         Case "S"
  755.             Cls
  756.             Gosub LABEL018
  757.             Gosub LABEL015
  758.             BOOLEAN006 = 1
  759.     End Select
  760.     Goto LABEL033
  761.     :LABEL034
  762.     BOOLEAN006 = 0
  763.     Return
  764.     :LABEL035
  765.     Cls
  766.     If (CurSec() >= INTEGER011) Then
  767.         InputStr "Do you want you bbs to show up on Goodbye Screen (Y/N)", TSTRING011(INTEGER006), 14, 1, "", 8192 + 16384
  768.     Else
  769.         PrintLn "@X0CIf you wish to have a Logoff Listing on @BOARDNAME@@X07"
  770.         PrintLn "@X0CPlease Leave a Private Message to the Sysop "
  771.         PrintLn "@X0A-OR-@X07"
  772.         PrintLn "@X0FRent A Line for $5.00@X07"
  773.         PrintLn "@X0BMake check/money order (Do Not Send Cash!) to : "
  774.         PrintLn "John Pepp                                       "
  775.         PrintLn "P.O. Box 51171 "
  776.         PrintLn "Livonia, Mi 48151@X07"
  777.         Delay 18 * 7
  778.         TSTRING011(INTEGER006) = "N"
  779.     Endif
  780.     Return
  781.  
  782. ;------------------------------------------------------------------------------
  783. ;
  784. ; Usage report (before postprocessing)
  785. ;
  786. ; ■ Statements used :
  787. ;
  788. ;    1       End
  789. ;    14      Cls
  790. ;    4       Wait
  791. ;    105     Goto 
  792. ;    169     Let 
  793. ;    9       Print 
  794. ;    124     PrintLn 
  795. ;    65      If 
  796. ;    1       DispFile 
  797. ;    5       FCreate 
  798. ;    6       FOpen 
  799. ;    13      FClose 
  800. ;    49      FGet 
  801. ;    1       FPut 
  802. ;    24      FPutLn 
  803. ;    10      FPutPad 
  804. ;    1       Log 
  805. ;    13      InputStr 
  806. ;    51      Gosub 
  807. ;    26      Return
  808. ;    1       Delay 
  809. ;    4       Newline
  810. ;    3       Newlines 
  811. ;    1       Tokenize 
  812. ;    1       Bye
  813. ;    12      AnsiPos 
  814. ;    1       SPrintLn 
  815. ;    6       Frewind 
  816. ;    1       Download 
  817. ;
  818. ;
  819. ; ■ Functions used :
  820. ;
  821. ;    8       -
  822. ;    1       *
  823. ;    87      +
  824. ;    2       -
  825. ;    28      ==
  826. ;    5       <>
  827. ;    9       <
  828. ;    8       <=
  829. ;    7       >
  830. ;    16      >=
  831. ;    65      !
  832. ;    12      &&
  833. ;    6       ||
  834. ;    5       Upper()
  835. ;    2       Left()
  836. ;    1       Right()
  837. ;    5       Ferr()
  838. ;    4       Chr()
  839. ;    2       LTrim()
  840. ;    1       Date()
  841. ;    2       U_Name()
  842. ;    5       Inkey()
  843. ;    3       Mask_Num()
  844. ;    4       Mask_Ascii()
  845. ;    12      PPEPath()
  846. ;    3       CurSec()
  847. ;    2       GetToken()
  848. ;    4       Mixed()
  849. ;
  850. ;------------------------------------------------------------------------------
  851. ;
  852. ; Analysis flags : No flag
  853. ;
  854. ;------------------------------------------------------------------------------
  855. ;
  856. ; Postprocessing report
  857. ;
  858. ;    6       For/Next
  859. ;    5       While/EndWhile
  860. ;    37      If/Then or If/Then/Else
  861. ;    1       Select Case
  862. ;
  863. ;------------------------------------------------------------------------------
  864. ;                 AEGiS Corp - Break the routines, code against the machines!
  865. ;------------------------------------------------------------------------------
  866.